Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbtable.dxr/00053_Tool Box.ls

Text File | 2000-01-18 | 1.4 KB | 61 lines

on tellloc startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the member of sprite rc).name, the loc of sprite rc
  end repeat
end

on tellrect startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the member of sprite rc).name, the rect of sprite rc
  end repeat
end

on move
  set the rect of sprite 2 to rect(0, 0, 567, 18)
  set the rect of sprite 3 to rect(0, 0, 567, 18)
  updateStage()
  put the rect of sprite 2, the rect of sprite 3
end

on Jat p1, p2, p3, p4, p5, p6
  put p1, p2, p3, p4, p5, p6
end

on Rename sm, em
  fc = 1
  repeat with rc = sm to em
    member(rc, "Text").name = "Resp" & rc & "Textdd"
    fc = fc + 1
  end repeat
end

on space xSprite
  xText = member(171, "Text").text
  repeat with rc = 1 to the number of chars in xText
    if char rc to rc + 1 of xText = "  " then
      beginSpace = rc
      xChar = rc
      repeat while char rc of xText = " "
        rc = rc + 1
      end repeat
      endSpace = rc - 1
    end if
  end repeat
  median = beginSpace + integer((endSpace - beginSpace) / 2)
  put median, charPosToLoc(member(171, "Text"), median)
end